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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
3 COPY LOG7A51 ** MAP EC HISTORY ** 002500 2ADO0 198 DC A(ENTPT POINT TO MAP ENTRY POINT TABLE 

Tt ES SS SSS eT SSS SSeS ST TSS SS SS CSS SSS SSCS SSSCCCSCCCCCCCC OSS SSS TCLS SSeS S Se St 199 ¢ERRGR EELS CEECARSEREES OEE EEREERESER SD ced GEER E RENEE eden ceed eee skeekee 

5 * %* 200 ME HE RC Re aK eee 2 a 2 a a ak of 2 fe ke 2 ke a a aK kc 2 a a 2k ake ke te a ya ak ake ae ake ae 2 ake of a ae ka ae ic fe oa af af ake ae ae af ae akc ak ake ake ake ae 

6 * 4K PREREQUISITES KK * 201 ** % ok 

7 x * 202 ** THE FOLLOWING TABLES ARE USED BY THE MDI SUPERVISOR (D3C00) ** 

8 x NONE * 203 *x* TO LOCATE THE CORRECT RULE TO INVOKE, TO OBTAIN THE PROPER ek 

9 x * 204 *x PARAMETERS TO PASS TO THE TU'S AND TO PASS TO THE OPERATOR 1% 

10 ROR doko KR I ka a RO I Oi ii a fe ate tte ke koi tc ic ic ake ake ke ofc ac akc ae akc ak 205 ** THE INDICATED MESSAGE(S). THERE ARE FOUR TABLES USED FOR THIS 1 

11 * * 206 *x* PURPOSE THEY ARE: ke 

12 * 4k MODIFICATIONS kK x 207 ** ek 

13. * * 208 ** STEP AND RULE ADDRESS TABLE * 

14 * CHANGES MADE TO CORRECT ERRORS FOUND WHILE IN TEST * 209 ** THIS TABLE GIVES THE ADDRESS OF THE RULE TO INVOKE AND * 

15 x * 210 ** THE ASSOCIATED STEP DECIMAL STEP NUMBER OF THAT RULE. tk 

16 4% RR kk a IO Ro I IC OK A OI IR RR ik a i etc afaik aa ake ke kek 2k ak ke oc ak 211 ** ENTRIES ARE AS FOLLOWES * x 

17 * * 212 ** A AN ADDRESS OF THE RULE DC START AREA 4 

18 * We CK REA*S INCORPORATED eC * 213 ** B THE STEP NUMBER IN DECIMAL * x 

19 x * 214 ** Cc AN EQUATE FOR THE STEP NUMBER % k 

20 * NONE * 215 ** 

51 x * 216 ** RULE INFORMATION TABLE * 

22 Ook I IC I III IG I ok ait i tok ak tak acai at ak ok ai ak ok fa ake a 217 ** THIS TABLE CONTAINES THE REQUIRED INFORMATION TO EXECUTE x 

53 « * 218 ** THE APPROPRIATE RULE UNDER MDI. EACH RULE HAS ITS OWN * 

24 * KX SPECIAL INSTRUCTIONS CK * 219 ** UNIQUELY DEFINED AREA INDICATED BELOW. END OF TABLE IS * x 

25 i * 220 ae INDICATED WITH A X*O000* FOR THE RULE EQUATE. * 

* NONE * % 

27 * * 222 ** SQUES ee 

VAM SEPP ef Sete LS SS SE SPT SS SS SSS SSS SST ST SSS SS SS SS SS CSS SC SS SPSS SSS SCS CSS SS eS Ss 223 ** A) RULE EQUATE X‘'0100° 1 

59 * * 224 ** B) ADDRESS OF THE YES LEG RULE ek 

30 * He 3K E. C. HISTORY aK * 225 ** we 2k 

31 * * 226 ** $FIXT ok 

32 * DATE 17AUG78 DATE 020CT78 DATE 10JAN79 DATE * 22] ** A) RULE EQUATE X*'0101! a 

33 ? E.C. 755391 E.C. 375102 F.C. 375222 E.C. : 238 pit B) ADDRESS OF MESSAGE TO PRINT pips 

COME LETS LT SLL ELE S SSS SLL CLS SSS SC SSCLSSOSSS SSS S CSCS CSCSCSCC CCC CSC SSCS SST CST eS Sete + 2 7 230 ** SSTOP * 

002500 37 I7AS1 START X'2500! START ADDRESS OF ALL *I' TYPE PROG 231 ** 3} RULE EQUATE X*0102' ** 
000100 38 OQUES EQU x¥*01008 EQUATED VALUE FOR MDI STATEMENT 232 ** B) ADDRESS OF MESSAGE * 
000101 39 aFIXT EQU X¥*0101! EQUATED VALUE FOR MDI STATEMENT 233 ** 2 
000102 40 @STOP EOU X¥'0102? EQUATED VALUE FOR MDI STATEMENT 234 ** $GOTO #3 
000200 41 @GOTO EQU X¥*02008 EQUATED VALUE FOR MDI STATEMENT 230, £* A) RULE EQUATE X'0200! * 
000201 42 @CALL EQU X'0201! EQUATED VALUE FOR MDI STATEMENT 236 ** B) ADDRESS OF MESSAGE *% 
000300 43 @INPT EQU X*0300! EQUATED VALUE FOR MDI STATEMENT 237 ** C) NAME OF MAP TO GO TO % % 
000400 “uu @OUXX EQU x'O4008 EQUATED VALUE FOR MDI STATEMENT 238 ** D) ENTRY POINT WITHIN GO TO MAP TO USE * 
000500 45 @aTUXX EOQU x'0500! EQUATED VALUE FOR MDI STATEMENT 239 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE x 
000600 46 @NVLD EQU X*'0600! FOUATED VALUE FOR MDI STATEMENT 241 ** % 3 
000000 47 EO EOU X* 0000! EOUATE FOR EQUAL 242 *% $SCALL % 5 
000004 48 NE FOU x'*0004! EQUATE FOR NOT EQUAL 243 ** A) RULE EQUATE x'0201!8 a He 
000008 49 HI FOU X¥*0008! EQUATE FOR HIGH 244 ** B) ADDRESS OF MESSAGE ae 
00000C 50 NH EQU x'o000C! EQUATE FOR NOT HIGH 24U5 x C) NAME OF MAP TO CALL Hk 
000010 51 Lo EQU X¥'00108 EQUATE FOR LOW 246 *% D) ENTRY POINT WITHIN CALLED HAP TO USE %*x 
000014 52 NL EQU xX'001748 EQUATE FOR NOT LOW 247 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE % x 
000010 53 LT EQU X'0010° EQUATE FOR LESS THAN 248 *% 1% i 
00000C 54 LE EOU x'o00ct EQUATE FOR LESS THAN OR EQUAL TO 249 ** SINPT ek 
000008 55 GT EQU X'0008! EQUATE FOR GREATER THAN 250 ** A) RULE EQUATE X'0300! xx 
000014 56 GE EOU X'00148 FQUATE FOR GREATER THAN OR EQUAL TO 251 ** B) INPUT TYPE soeeeee OR HEX) *% 
000200 57 ON EOU x*02008 EQUATE FOR ON 252 ** C) ADDRESS OF YES LEG ROLE % 
000202 58 OF EQU X'02028 EQUATE FOR OFF 253 ** D) DESTINATION LOCATION OF INPUT DATA * 
000204 59 MX EQU X'0204! EQUATE FOR MIXED 254 ** E) LENGTH OF INPUT DATA x 
000000 60 EBC EQU x'00008 EQUATE FOR EBCDIC DATA TRANSFER 295. ** F) LOWER LIMIT OF GOOD DATA KX 
000001 61 HEX EQU Xx' 00018 EQUATE FOR HEX DATA TRANSFER 256 ** G) HIGHER LIMIT OF GOOD DATA 5 
000001 62 XTRNL EQU X*00018 EQUATE FOR EXTERNAL REFERENCE 257 ** * 
000000 63 INTRNL EQU X¥* 0000? EQUATE FOR INTERNAL REFERENCE 258 ** $QUXX % 
000000 64 PARM EOU X¥*00008 EQUATE INDICATING PARAMETER 259 *% A) RULE EQUATE X'O4OO! * 
000001 65 DA EQU x'oooit EQUATE FOR DEVICE ADDRESS 260 ** B) ADDRESS OF YES LEG RULE ak 
000002 66 EQU x'0002' EQUATE FOR UNIT ADDRESS 261 ** C) TU BRANCH TO ADDRESS ee 2% i 
000000 67 DUMMY EQU x'O0008 DUMMY EQUATE 262 ** D) TU BRANCH TO ADDRESS (SECONDARY) x 
001800 69 PID EOU *-X'QDOO! ADDRESS OF MDI HEADER 263 ** E) LENGTH OF PARAMETER IN BYTES * 
000232 70 PTYPE EQU *-X'22CE! ADDRESS OF PROCESSOR TYPE FIELD 264 ** F) PARAMETER TO PASS TO TU xm 
00180C 71 STEPNUM EOU PID+xX*OO00C! ADDRESS OF DECIMAL STEP NUMBER 265 ** G) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER ax 
00180E 72 OPWD1 EQU PID+X'OOOE! ADDRESS OF OPTION WORD ONE 266 ** ak 
001810 73 OPWD2 EQU PID+X'0010? ADDRESS OF OPTION WORD TWO 267 ¥** STUXX x 
001818 74 TUSTATUS EQU PID+X'0018! ADDRESS OF TU STATUS WORD 268 ** A) RULE EQUATE xX'0500! #ok 
00181A 75 TUWORK EQU PID+X'OO1A! ADDRESS OF TU WORK AREA 269 ** B) ADDRESS OF YES LEG RULE * x 
00189A 76 TUPARM1 EQU PID+X'OOQA? ADDRESS OF PARM 1 POINTER 270 ** C) TU BRANCH TO ADDRESS eX 
00189C 77 TUPARM2 EOQU PID+X'O009C! ADDRESS OF PARM 2 POINTER 271 ** D) TYPE OF COMPARE TO MAKE ON RESULTS #% 
00189E 78 TUPARM3 EQU PID+X'"O09E! ADDRESS OF PARM 3 POINTER 272 ** E) LENGTH OF COMPARED RESULTS ak 
0018A0 79 TUPARM& EQOU PID+X*OOAO! ADDRESS OF PARM 4& POINTER 273 ** F) MASK FIELD FOR COMPARE ek 
0018A2 80 TUPARM5 EOQU PID+X'"OOA2! ADDRESS OF PARM 5 POINTER 274 ** G) LENGTH OF PARAMETER IN BYTES *% 
0018A4 81 TUPARM6 EQU PID+X'OOA4! ADDRESS OF PARM 6 POINTER 275 ** H) PARAMETER TO PASS TO THE TU *% 
0018A6 82 TUPARM7 EOU PID+X'OOA6! ADDRESS OF PARM 7 POINTER 276 ** I) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER ak 
0018A8 83 TUPARM8 EQU PID+X'OOAS8' ADDRESS OF PARM 8 POINTER 277 ** 4k 
OO18AA 84 TUPARM9 EQU PID+X'OOAA' ADDRESS OF PARM 9 POINTER 278 ** S$NVLD aK 
0018AC 85 TUPARM10 EOU PID+X*OOAC! ADDRESS OF PARM 10 POINTER 279 *% A) RULE EQUATE x'0600! 2% 
OO18AE 86 TUPARM11 EQU PID+X'OOAE! ADDRESS OF PARM 11 POINTER 281 ** * x 
0018B0 87 TUPARM12 EQU PID+X'OOBO! ADDRESS OF PARM 12 POINTER 282 ** ENTRY POINT TABLE a 
0018B2 88 TUPARN13 EOQU PID+X'0O0B2! ADDRESS OF PARM 13 POINTER 283 ** THIS TABLE CONTAINS THE ENTRY POINTS WITHIN THE MAP THAT * 
0018B4 89 TUPARM14 EQU PID+X'OOB4! ADDRESS OF PARM 14 POINTER 284 ** THE MAP CAN BE ENTERED FROM THESE ENTRY POINTS ARE *K 
001886 90 TUPARM15 EQU PID+X'OOB6! ADDRESS OF PARM 15 POINTER 285 ** REFERENCED BY NAME AND ADDRESS. ENTRIES ARE AS FOLLOWES: xx 
0018B8 91 TUPARM16 EOU PID+X'OOB8' ADDRESS OF PARM 16 POINTER 286 ** 1K 
0018BA 92 TUMSGWTR EQU PID+X*OOBA® ADDRESS OF -> TO COMMON MSG WRITER 287 ** 3} NAME OF ENTRY POINT He 
0018BE 93 TUUA EQU PID+X'OOBE' ADDRESS OF UNIT ADDRESS IN EBC 288 *%* B) ADDRESS OF ENTRY POINT RULE TABLE a 
0018C0 94 TUDA EQU PID+X'00CO*? ADDRESS OF DEVICE ADDRESS IN EBC 289 ** a 
0018C2 95 TUBUFF EQU PID+X'00C2! ADDRESS OF LAST USED WORD IN MAP 290 ** THE ENTRY POINT TABLE END IS INDICATED BY A xX'0000! ek 
0018C4 96 TULAST EQU PID+X*'00C4? ADDRESS OF LAST ADDRESSABLE WORD 291 ** * 
0018C6 97 TURESULN EOQU PID+X'O0C6! ADDRESS OF LENGTH OF TU RESULTS 292 ** MESSAGE TABLE % % 
0018C8 98 TURESUL EOU PID+xX'00C8! ADDRESS OF TU RESULTS FIELD 293 ** THIS TABLE CONTAINES THE MESSAGE PASSED TO THE OPERATOR * x 
0018FC 99 MAPNAME EOU PID+X*OOFC?® ADDRESS OF MAP NAME FIELD IN HEX 294 ** VIA THE MDI SUPERVISOR. THE TABLE IS AS FOLLOWES: * 
001948 100 TUINPT EQU PID+X'0748! ADDRESS OF $INPT DATA 295 *%* * 
00196E 101 PARMARA EOU PID+X'QO16E' ADDRESS OF $INPT INPUT AREA 296 ** A EQUATE FOR START OF MESSAGE BLOCK ES 
0019B8 102 @DCADD1 EQU PID+X'0O1BB8! MDI POINTER 297 ** B) NUMBER OF LINES OF MESSAGE *e 
0019BA 103 @DCADD2 EQU PID+X*O1BA* MDI POINTER 298 ** C) LENGTH OF FOLLOWING LINE * 
0019C4 104 PSTAT EQU PID+X'O1C4# ADDRESS OF MDI STATUS 299 ** D) FIRST LINE OF MESSAGE * x 
0019D0 105 DEVADD FOU PID+xX*'O1D08 ADDRESS OF DEVICE ADDRESS TABLE 0 300 ** E) LENGTH OF FOLLOWING LINE * 
OO19DA 106 DEVADD1 EQU PID+X'O1DA! ADDRESS OF DEVICE ADDRESS TABLE 1 301 ** F) SECOND LINE OF MESSAGE *% 
0019E4 107 DEVADD2 EQU PID+X'OTE4* ADDRESS OF DEVICE ADDRESS TABLE 2 302 ** G TC. ok 
0019EE 108 DEVADD3 EQU PID+X*O1EE? ADDRESS OF DEVICE ADDRESS TABLE 3 303 ** *% 
0019F8 109 DEVADD4 EOU PID+X'O1F8? ADDRESS OF DEVICE ADDRESS TABLE & 304 HE A He 2 ea ae a ac ac 2 ae I a 2 i Ne i a 2 a ae 2 a ae a a a a ea ae ac ae a ake ae ake a ak af ake age age aka ak adage ag ake age ate ate ae abe age ag ae ake ae 
001A02 110 DEVADDS EOU PID+X*0202'" ADDRESS OF DEVICE ADDRESS TABLE 5 305 HR Re Re ee ee ae ee ae i ee a a 2 a ck a a 2 ake ac a a a a a a a a a a aa ae a ae ta a ake ag ak ak a ai a ak a dae age age ae ad age ae ae ake ke ae 

0O1A0C 111 DEVADD6 EOU PID#X'020C! ADDRESS IF DEVICE ADDRESS TABLE 6 
001A16 112 DEVADD7 EOD a BID+X* 0216" ADDRESS OF DEVICE ADDRESS TABLE 7 
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STEP AND RULE ADDRESS TABLE 
SQ WM Me ae Me He ee A He a a a a a ae He I AH Be Ne a a a a a a i tok ok 


AL2 (00001) 
001! 


XL2'0O 


DC 


EQN00003 EQ 
D 
DC 


EQNO0004 EQo 
D 
DC 


EQN00010 EQU 
DC 


DC 
EQN00017 EQu 
D 


DC 
EQNOO011 EQU 
D 


DC 
EQN00005 EQu 
D 


EQNO0002 Fou 
D 
DC 


EQNO0018 EQU 
DC 
DC 


EQN00019 eRe 
D 
DC 


EQN00023 EQU 
DC 
DC 


EQNOO0024 EQU 
D 
DC 


EQNO0026 EQU 
DC 
DC 


EQN00027 EQU 
D 
DC 


EQNO00029 a 
D 
DC 


EQN00030 Bae 
D 
DC 


EQN00031 EQU 
DC 
DC 


EQNO0032 EQU 
DC 
DC 


EQN00033 EQ0 
D 
DC 


EQNO0034 eeu 
D 
DC 


DC 
EQN00035 hoe 

D 

DC 


EQNO00028 EQU 
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DC 


EQNOO0O001 Eau 
D 
EQN00006 Eau 
D 
EQN00007 ee 
D 
EQNO0008 Ea 
D 
EQNO00009 EQU 
D 
EQN00012 EQu 
D 
EQN00013 EQ 
D 
EQN00014 QU 
D 
EQNO0015 zQuU 
D 
EQN000 16 £QU 
D 
EQN00020 Eau 
D 
EQN0O0021 zeae 
D 
EQN00025 zg 
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1686 * EXECUTE INPUT & OUTPUT COMMANDS OO2FI4 6802 2F92 Le ‘ B XIO8-4 GO WAIT FOR THE INTERRUPT 

* TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 

1688 * EACH OF THESE ENTRIES SET R7 WITH THE ADRS OF ITS PARAMETER 002F18 4020 304A 2D88 1802 SDGWR MVA WRDCB, IODCB SET UP CONTROL BLK FOR SVC CALL 

1689 : LIST AND ANY SPECIAL SWITCHES REFORE BRANCHING TO THE OO2FIE 6802 2F3E ‘oon " B XIODG ISSUE START CS DIAG CMD 

ere 232628 098 208R 7PR° age SPoRD ya Bopees TGs SEE 15. °OF "hae fo" ceean® 

692 * THIS SUBROUTINE WILL CHECK FOR THE FOLLOWING: x ° 

1693 * i 002F2C 6D08 2DB6 1807 MVW RDDCB+14,R5 ADDR OF READ BUFFER 

1695 * 22 ERROR INTERRUPTS RECETVED PROM SUDVN NS LOOP O03F32 2BAC 1809 BURT MSPin ge? eae ee 

1696 * 8 ee eee 002F34 6802 2F3E 1810 B eta ISSUE START CS DIAG CMD 

1697 * THIS ROUTINE HAS THE FOLLOWING ENTRIES: 1812 COPY T/AXEQ OOMAR78 

33 1 B37 ceeTREDO oe 

* 

1633 x : oe Seb iuene Boer eer ae Pe ERED 37 AE EE EE TOSSA ACES HESS EE SOG BOS EE EOE eK #29 JLT 644 

1701 * 2 BAL SWKEW,R6 WRITE SECTOR ID SKEWED 2379+% 

1702 * 3 : 2380+* SUB-ROUTINE 

* BAL $WSEC, R6 WRITE SECTOR ID + 
1794 * 1k : 2382+% EXECUTE INPUT AND OUTPUT COMMANDS 
BAL $DIAG,R6 DIAGNOSTIC 
1796 * : 3 : : 2384+* PURPOSE 
* BAL XIOCS,R6 CYCLE STEAL STATUS + 
1708 * : : 2386+* TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 
1799 * 6 BAL  $SEEK,R6 SEEK 2387+% THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: 
: + 
1711 * 7 BAL  $RECL,R6 RECALIBRATE 2389+* 1. SAVE THE ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED 
{oie ; 8 £ ethene 2 SAVES’ THE DCB BLOCK USED UNLESS IT IS A START CYCLE STATUS 
* BAL $RDID,R6 READ SECTOR ID : 

1714 * is . = 2392+* ISSUED BY THIS SUBROUTINE. 

1715 * 9 BAL  $RD,R6 READ 2393+% 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE 

1716 * 2 2394+* START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. 

1717 * 10 BAL  S$RDVY,R6 READ VERIFY 2395+* 4. RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT 

1718 * 7 2396+* SINCE THE LAST EXPECTED INTERRUPT. IF AN INTERRUPT IS FOUND, 

1719 * 11 BAL  $WRT,RE WRITE 2397+* MYSTERY INTERRUPT (NI) CONTROL BIT IS SET. 

1720 * 2398+* 5. MOVES THE ADDRESS OF THE 1/0 CONTROL BLOCK IN R7 SET. THE 

1721 * 12 BAL  $RDIM,R6 READ MULTI SECTOR IDS 2399+* EXPECTED INTERRUPT CONTROL BIT AND ISSUE THE 'SvC st 

1722 * 2400+* 6. WHEN THE SUPVR RETURNS AFTER ISSUING THE I/0 COMMAND, MR IMING 

1723 2 IORI IS ORIG GIG OIG a aa I IC Ik 2401+* STARTS TO DETERMINE A LOST INTERRUPT. 

1724 * 24U02+* 7. EXCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IF IT 
002E32 4020 304A 2D68 1725 $SEEK MVA  SKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 240 3+* WAS AN _ ERROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. 
002538 SOT7TF 1726 J XIO 24U044+* 8. CHECK IF THERE WAS A WRONG INTERRUPT LEVEL. 
002E3A 4020 304a 2038 «4938 $ s4oet* © 102 CHECK TF THERE WAS AW ERROR CONDITION “EE HOT RETURN. 

RECL MVA  CLDCB,IODCB SET UP BLOCK FOR SVC CAL : : 
002E40 507B 1729 J XIo’ = 2407+* 11. CHECK TO SEE IF THE EXERCISER TO BE TERMINATED. 

1730 * 24084+* 12. CHECK IF A CYCLE STEAL OPERATION WAS IN BROGRESS THAT WAS 
OO2ZE42 4020 304A 2D58 1731 $RDID MVA  RSDCB,IODCB SET UP BLOCK FOR SVC CALL 2409+* ISSUED BY THIS SUBROUTINE. 
002E48 OBBB 1732 MVBI xX'BBt *R3 SET BUFFER TO BIts 2410+* 13. CHECK THE ISB BITS THAT ARE ON. IF BIT 0 IS ON, ISSUE A 
OO2ZF4A 4524 2CDE 1733 MVA  SCTID,R5 SETUP READ SECTOR ID BUFFER ADRS 2411+* CYCLE STEAL STATUS COMMAND. CHECK FOR ANY OTHER BIT BEING ON, 
OO2ZEGE 4724 0004 1734 MVWI SETUP BUFFER LENGTH 2412+% COUNT IT AND SET UP THE PROPER ERROR MESSAGE TO BE PRINTED. 
002E52 2BAC 1735 FFN R3 {B5) INIT READ SECTOR ID BUFFER 2413+* 
002E54 4020 2D66 2CDE 1736 MVA SCID, RSDCB+14 DATA ADDR 24144+* CALLING SEQUENCE 
OO2E5A 506E 1737 J XIO 2415+* 
aes: uaa sone sane 1738 toe — Zu 1ers THIS ROUTINE HAS THE FOLLOWING ENTRIES: 

M RMDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 

002E62 4724 0084 1740 MVWI 132,R7 SET BUFFER LENGTH 2418+* --> BAL XIO OR XEQ ANY CYCLE STEAL COMMAND, MOD=0 
002E66 4524 2812 1741 MVA 1D06,R5 SET BUFFER ADDRESS 2419+* --> BAL XI0O1 MOD PARM PRELOADED IN '1oMOpt 
OO02E6A OBBB 1742 MVBI X*BBE R3 SET CLEAR CHARACTERS 2420+* --> BAL XIOCS,R6 OR XEQ START CYCLE STEAL STATUS, MOD=F 
OO2B6C 2BAC 1743 FFN  R3, (R5) CLEAR THE BUFFER 2421+* --> BAL XIOCS—4,R6 AUTO CS STATUS (FOLLOWING OTHER XIO 
OO2E6E 5064 174 < J X16 2u22+% E AND DOES NOT POST INTERRUPT STATUS) 
002E70 OBFF 1746 $RD MVBI X* PEt, R3 SETRD BUFFER TO ALL FtS 2424+* RETURN CONTROL 
002E72 6D08 2DB6 1747 MVW RDDCB+14,R5 SET UP READ BUFFER ADRS 2425+* 
002E76 6F08 2DB4 1748 MVW RDDC Bs +12,R7 SET UP BUFFER LENGTH 2426+* BXS R6, 2) RETURN TO USER NO ERROR 
OO2ZE7A 2BAC 1749 FFN R3 85 CLEAR READ BUFFER 2427+* B 6) * RETURN AND RETRY ON ERROR 
OO2EF7C 4020 304A 2DA8 1750 SRDS MVA RDS B, LODCB SET UP BLOCK FOR SVC CALL 2428 4% RKO IK ORO IO OR KOK yokok ok lok OR ik i kok ik gtk kik take ac ak ak 
002E82 505A 1751 J XI 002F38 CB25 304C 2430+XIO MVWZ IOMOD,R3. SET MOF OF 0 FOR CYCLE STEAL OP 
002E84 4020 304A 2D98 1783 SRDVY MVA  VRDCB,IODCB oe tee ieee SS isis Ae rea grgranure res 

I SET UP CONTROL BLOCK FOR SVC CALL 
OO2E8A 5056 1754 J XIo ’ 002F3Z 4020 304C O00D 2433+XIODG MVWI X'OOOD',IOMOD SET MODIFIER FOR DIAGNOSTIC OPS 
OO2E8C 4020 304A 2D88 1788 SWRI MVA  WRDCB,IODCB oe ee ere see Se a 

IODC SET UP CONTROL BLOCK FOR SVC CALL 
00O2E92 5052 1757 J XIo ’ OO2F46 4CAA 2436+ TBTR R4, cE RESET CS STATUS INTER ERROR INDICAT. 

1758 * 002F48 4C68 2437+ TBTS SET "CYCLE STEAL STATUS' IN PROGRESS 
002E94° 4020 304A 2DC8 1759 S$RKEW MVA_ RKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL O02F4A 4020 304A 2078 2438+XIOCS MVA Spee, ODCB SET UP CONTROL BLOCK FOR SVC CALL 
QOO2ZE9A. OBBB 1760 MVBI X*BB!,R3 SET BUFFER TO BtS 002F50 4020 304C OOOF 2439+ MVHI xX*'000 of , LOMOD SET CYCLE STEAL MODIFIER 
QO02E9C 4524 2CDE 1761 MVA_ SCTID,R5 SETUP READ SECTOR ID BUFFER ADRS O002F56 4C28 2440+ TBI ee IS CS IN PROGRESS, ERROR CONDITION 
OOZEAO0 4724 0004 1762 MVWI 4,R7 SETUP BUFFER LENGTH O02F58 1213 2441+ JON To2 * YES, BYPASS SAVING Ae ADRS 
OO2EA4 ‘2BAC 1763 FFN R3 £R5) INIT READ SECTOR ID BUFFER OO2F5A 6EOD 2CDC 24424+XIO1T MVW R6,LSTIO SAVE fAR FOR RETRY IF eer alee 
OO2EA6 4020 2DD6 2CDE 1764 MVA SCTID,RKDCB+14 DATA ADDR OO2F5E 4324 2CE6 2443+ MVA DCBUF,R3 SET UP TO ADRS TO MOVE DCB TABLE 
OO2BAC 5045 1765 J XIO OO2F62 6D08 304A 24444 MVW IODCB,R5 * AND THE FROM ADRS, ALONG WITH 
OO2ZBAE 4020 304A 2DB8 1786 euKew MVA WKDCB,IODCB O03re8 oR eu sues VEN 26.87 R3) HOVE 1 STATUS WORD AND ADJUST 

SET UP CONTROL BLOCK FOR SVC CALL 

002E84 4020 2DC6 2DF6 1768 MVA  WRSID,WKDCB+14 DATA ADDR OO2F6A OBFF 2447+ MVBI $82 < CLEAR CYCLE STATUS BUFFER 
OO2EBA 503E 1769 J 0 OO2F4C 4524 2CF6 2448+ MVA CSBOF,RS * TO ALL ONES * 
OO2EBC 4020 304A 2D48 174 $WSEC MVA CB, USF 72 OBAC 5480+ PFN ato + 

WSDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL + 
002EC2 4020 2D56 2DF6 1772 MVA  WRSID,WSDCB+14 DATA ADDR 002F74 4020 2cD8 0708 2451+ MVWI £16408%, SIOIN OVERLAY OLD CONDITION CODES 
OO2ZEC8 5037 1173 ; J X1IO OO2F7A CB25 2CDA gu 52+ MVWZ $ISB,R3 ZERO OUT OLD ISB VALUE 

+ 

OO2ECA 4020 304A 2D28 1775 $DIAG MVA  DGDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL OO2F7E 4CA1 2454+ TBTR (R4,ER RESET ANY ERROR BEFORE I/O COMMAND 
O02ED0 5033 1776 J x10’ 002F80 4CA3 2455+XI02 TBTR {rae TN} | CLEAR INTERRUPT RECEIVED CNTL BIT 

1777 * O02F82 4724 3046 2456+ MVA oBLK SET UP CONTROL BLOCK FOR SUPVR 
QO2ED2 6E0D 2CDC 1778 $WRTO MVW_ R6,LSTIO SAVE IAR FOR PETRY IF REQUESTED O02F86 4CA6 2457+ TBIR ru, SLE) RESET LEVEL ERROR INDICATOR 
OO2ED6 OBFF 1779 MVBI 255.R3 CLEAR CYCLE STATUS BUFFFR QO2F88 4C62 2458+ TBTS R4,XTI) SET EXPECTED INTR CONTROL BIT 
OO2ED8 4524 2CF6 1780 MVA csBbx, R5 * TO ALL ONES * OO2F8A 600A 2459+ SVC TART CALL SUPVR FOR I/O COMMAND 
DO onDe Onae 1734 re Oe 22 i 5 ; OO2F8C 4CAT7 sueqt TBTR (R4,NTI) 

; * + , IS AN INTR EXPECTED 

QOO2EEO 4524 2CE6 1783 MVA bes Fe bs CLEAR DCB BUFFER TO ALL ONES OO2F8E 6ACO 0002 2462+ BN R6,2 * NO, RETURN TO USER 
Tee yes Bee sagett es 7 

R * + E INTR SHOULD OCCUR WHILE SPINNING IN THE NEXT SECTION 
QOO2EE8 4020 2CD8 0708 1786 MVWI RR son OVERLAY OLD CONDITION CODES 2465+* 
OO2EFRE CB25 2CDA 1787 MVWZ SISB ZERO OUT OLD ISB VALUE 002F92 4524 0000 2466+ MVWI 0,R5 SET UP WORK REG FOR 'LOST INTR! 
QOO2EF2 4CA3 1788 TBTR R4 ft CLEAR INTERRUPT RECEIVED CNTL BIT OO2F96 4CA3 2467+XIO8 TBTR (Ra IN) HAS INTERRUPT BEEN RECEIVED 
OO2EF4 4CaAl 1789 TBTR Ba ER RESET ANY ERROR BEFORE I/0 COMMAND 0O02F98 1239 2468+ JON ToCcK * YES, CHECK IF ALL WAS SATISFACTORY 
OO2RF6 4C62 1790 TBTS RY,XI SET EXPECTED INTR CONTROL BIT OO2FIA 6002 2469+ SVC IDLE ALLOW ANOTHER PROGRAM A CHANCE TO RUN 
OO2EF8 4724 3046 1791 MVA OBLK,R7 SET UP CONTROL BLK FOR SUPR 2470+* SUPVR WILL RETURN HERE 
OO2EFC C020 304D 1792 MVB  TIOMOD+1,R0 GET IDCB FUNC/MODIFIER 002F9C 6002 2471+ SVC IDLE ALLOW ANOTHER PROGEAL | A CHANCE TO RUN 
002F00 402D 304C OOFO 1793 RBTWI X*OOFO',IOMOD REMOVE FUNCTION FROM '‘IOMOD!? 2472+* SUPVR WILL RETURN HER 
002F06 3022 1794 SRL 4,R0 RIGHT JUSTIFY FUNCTION BITS IN RO OO2ZFIE 7JDA1T 0001 2473+ AWI 1,R5 ADVANCE TIME OUT COUNT 
0O2F08 F005 1795 CBI 5,R0 IDCB FUNCTION = 5? QOO2FA2 18F9 2474+ JNZ  XIO8 BCH IF TIME OUT NOT REACHED 
OO2FOA 1003 1796 JE SORT1 YES - ISSUE ‘SVC WRIT1! OO2FA4 4C61 2475+ TETS R4,ER) SET ON ERROR CONTROL BIT 
OO2FOC 6010 1797 SVC WRITO ISSUE WRITE DPC "4x* OP OO2FA6 68D2 0000 2476+ B R6{ * RR 'NO INTERRUPT! 
OO2Z2FOE 6802 2F92 1798 B XI08-4 GO WAIT FOR THE INTERRUPT 24 7B 4 EH KEK KE EERE ER EEE EE KEE EE EE KE KEE EEK EK EE KEK HES BF EB 6% * 
002F12 6011 1799 $WRT1 SVC WRIT1 ISSUE WRITE DPC '5X* OP 2479+* 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYPIGHT IBM CORP 1976 
24u80+* SUBROUTINE OO2FF2 0501 2596+ ABT 1,R5 * IN *T* BIT IL 
su814% OO2FF4 CD24 2D16 2597+ CW SEINTL,RS IS THIS THE CORRECT INTR LEVEL IL 
2482+* I/O EXECUTE ERROR HANDLING ROUTINE OO02FF8 1002 2598+ JE INTR3- * YES, GO EXIT THIS LEVEL PL 
54834 OO2FFA 4C66 2599+ TBTS R4,$LE) SET TNTR LEVEL ERROR CONTROL BIT IL 
54844 PURPOSE OO2FFC 4C61 2600+ TBTS R4O,ER SET FRROR ON I/O COMMAND CNTL BIT IL 
54854% OO2FFE 4CA2 2601+INTR3 TBTR (R4~XT WAS INTERRUPT EXPECTED IL 
IN 86+* THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE 003000 1204 2602+ JON nTRX * YES, EXIT OFF THIS INTR LEVEL IL 
2487+* PROBLEM THAT WAS FOUND WHEN THE I/O COMMAND WAS ISSUED BY THE 003002 4C¢60 2603+ TBTS ix MI) * NO, SET MYSTERY INTR CONTROL BIT IL 
2488+ SUPERVISOR AND IT WAS NOT ACCEPTED. 003004 F304 2604+ CBI R3 ATTENTION INTERRUPT? IL 
44894% 003006 1001 2605+ JE TNtTRX YES TL 
2490+* CALLING SEQUENCE 003008 4&C6C 2606+ TBTS R4,NG) te LT ete INTERRUPT IL 
54914 00300A 6006 26074INTRX SVC Tt HI VEL VIA SUPVR TO PGM IL 
24924+* SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/0 COMMAND 3609 HERES acoA ado aaareaace aireaac doc aco gE oo CoE HEE IO 3PEB 7 68 
249 34% - 48 
2494+%* RETURN CONTROL 2611+* THIS IS THE CONTINUATION OF EXECUTE I/0 AFTER THE INTERRUPT 
s4954% 2612+* HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERRUPT HAS BEEN 
ZN36+* B (R6) * RETURN TO USERS ERROR HANDLER ees RECEIVED AND BRANCHES HERE TO CHECF FOR ANY ERROR CONDITIONS. 
+x 
24984+* PS PPS SS SS SLE SSS SSL S SS SSE SSE SSL SS SLE LSS SPSS SSS SL SSS SSS S SSS SSS SS SS 2 S25 5 StS 2615+* 
54994% 00300C 4CA4 2616+XIOCK TBTR (R4, XE) WAS AN FRROR EXPECTED 
2500+* CC O= DEVICE NOT ATTACHED OO0O300E 6ACO 0002 2617+ BN Reeat * YES, EXIT THIS ROUTINE 
25014+* FOR 1= DEVICE BUSY 003012 4CA8 3618+ TBTR (R4,CS) WAS AUTO CS IN PROGRESS 
2502+* I/0 2= DEVICE BUSY AFTER RESET 003014 1006 2619+ JOFF XIOCV * NO, CONTINUE CHECKING 
9503+* 3= COMMAND REJECT 003016 4C2A 2620+ TBT 1ee CE) Is c§ IN AN ERR CONDITION 
2504+4+* = INTERVENTION REOULIRED 003018 1002 2621+ JOFF Toco * NO, BC 
2505+* 5= INTERFACE DATA CHECK O0301A 68D2 0000 2622+ B R6) * CS_ERROR 
2506+* 6= CONTROLLER BUSY OO301E 4C69 2623+xXIOCO TBTS R4,CSA) TURN ON CS STATS AVAIL FLAG 
2507+* 7= I/O COMMAND EXCEPTED 003020 5601 2624+ BXS Reteh GO TO USER 
2508+* 003022 4c21 2625+XIOCV TBT R4, ER) WAS ERROR INTR CONTROL BIT ON 
OO2FAR 706E 2309+XIOER CPLSR R3 : COPY STATUS ANY LEVEL INTO R3 003024 100D ee JOFF TOCX * NO, EXIT THIS ROUTINE 
+ 7k POSITION CC CODE TO BITS 13-1 

OO2FAE C328 2CD8 25114 MVB R3,$10IN * PUT IN LOG OUT AREA 003026 C520 2CD9 2628+ MVB SIOIN+1,R5 GET LAST INTR CC CODE 

O002FB2 68D2 0000 2512+ B (R6) * RETURN TO USER ERROR HANDLER 00302A F502 2625+ CBI = 2,R5 IS THIS CC=2 
25.114 4 CK a a GO oc ioc a tok icdoiok aio iiaiuiak datokk tok tok 7 4 A PR7 6% * 00302C 1003 2630+ JE xfocg YES 
2515+* IL 00302E F506 2631+ CBI 6,R5 IS THIS CC=6 
2516+* SUB-ROUTINE IL 003030 68D1 0000 2632+ BNE (Re) * * NO, BCH TO ERROR HANDLER 
ee IL 003034 C520 2CDA 2633+XIOCQ MVB TSB,R5 GET LAST ISB DATA BYTE AND IF CS 
2518+ ERROR INTERRUPT RUNS ON INTERRUPT LEVEL 'S$INTL'* TL 003038 6A00 2F46 2634+ BN xLOcS-4 * AVAILABLE, GO AND GET IT 
55194% iL 00303C 68D2 0000 2635+ B R6 ERROR 
3520+* PURPOSE IL 003040 CB25 2cD4 2636+XIOCX MVWZ PT 3 R3 CLEAR OUT OPTION 3 CNTL BITS 
5B s1ex IL 003044 5601 2637+ BX S (R6, 2 RETURN TO USER VIA REG 6 
2522+% THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR IL 2638+ * 
2523+% OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE TL 2639+* I/O PARAMETER LIST 
2524+%* EXPECTED CODE. IL 2640+% 

55 554% IL 003046 19D0 2641+IOBLK DC A (DFVADD) ADRS OF DEVICE ADRS 
55564+* CALLING SEQUENCE IL 003048 2FAA 2642+ DC A XIOER) ERROR ROUTINE ADRS 
5a574% IL 00304A 0000 2643+IODCB DC A DCB ADRS OR LEVEL & INTR 
2528+% SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O INTERRUPT IL 00304C 0000 2644+IOMOD DC A 3 MODIFIER 
5B 594% TL 00304F 0000 2645+ DC A (*-* ADRS OF LAST SVC CALL 
2530+4 RETURN CONTROL IL 003050 0000 2646+IORSP DC A (*-* SECOND WORD OF LAST IDCB 
+% IL 
2232+% SVC EXIT RETURN TO USER VIA SUPVR IL Oe INTERRUPT CONTROL BLOCK FOR I/O COMMANDS 
+ I - 
7 scamdaataeaons cee ae haaabcaraicagubiecheleiatiaaas: 003052 19D0 2650+INTBL DC A (DEVADD) ADRS OF DEVICE ADRS 
55354 IL 003054 2FDA 2651+ DC A mates) INTERRUPT OK RETURN ADRS 
2536+* CC O=-CONTROLLER END ISB O= ADD STATUS IL 003056 2FB6 2652+ DC A INTEPRUPT ERROR ADRS 
2537+ FOR 1= PROGRAM CONTROL INTERRUPT BITS 1= COMD REJECT IL 003058 0003 2653+INTCC DC x! INTERRUPT CODE EXPECTED 
52304 3= DEVICE END INTERRUPT INTR 3= DCB SPEC CK IL 2656+% 
2540+ G= ATTENTION INTERRUPT 4= STG DATA CK IL 2657+* SUBROUTINE 
ree 5= ATTENTION / PROGRAM CNTL INTR 5= INV STG ADRS IL 2658+* 
2542+* 6= ATTENTION / EXCEPTION INTR 6= PROTRCT CK IL 2659t* CONNECT INTERRUPT CONTROL BLOCK & PREPARE DEVICE 
2543+* 7= ATTENTION 7 DEVICE END INTR 7= I-FACE DATA IL 2660+* 
25444 IL 2661+* PURPOSE 

002FB6 706E 25454+INTER CPLSR R3 COPY STATUS ANY LEVEL INTO R3 IL 2662+* 

002FB8 336A 2546+ SRL 13.R3 POSITION INDICATORS IN R3 IL 2663+* TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 

OOOFBA 4424 2CD0 55074 NVA OPTN1,R4 SET UP BASE ADRS IL 26644+% PREPARE ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE 

OO2FBE 4cC28 2548+ TBT (Ra cs) IS CS IN PROGRESS TL 2665+* TO INTERRUPT. 

002FCO 1006 2549+ JOFF INTES * NO IL 2666+* 

OO2FC2 4C6A 2550+ TBTS (R4,CE TURN ON CYCLE STEAL INTER ERROR IL 2667+* CALLING SEQUENCE 

OO2FC4 G6FOD 2CE4 2551+ MVW = ©=0-R7,DEV SAVE CS ERR ISB VALUE, BITS 0-7 IL 2668+* 

Q02FC8 C328 2CE5 g092+ MVB R3,DEVG+1 * AND THE COND CODE IL 2669++ THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 

+ J INTR IL 

OO2FCE 4¢c24 2554+INTES TBT (Ra XE) TEST EXPECTED ATTEN / ERROR IND IL 2671+* --> BAL SCONC, R6 CLEAR DEV DEP STG AND CONNECT I/O BLK 

002FD0 1002 3555+ JOFF NTET BCH IF NOT EXPECTED IL 2672+%* —--> BAL $CONP, R6 PREPARE DEVICE ONLY, ALREADY CONNECT 

OO2FD2 F304 2556+ CBI 4,R3 IS THIS AN "ATTENTION* INTR IL 2673+* 

OO2FD4 1006 2557+ JE ThTR1 * YES, BCH TO END INTR SEQUENCE IL 2674+* RETURN CONTROL 

OO2FD6 4C61 2558+INTET TBTS {R4 ER) SET ERROR ON I/0 COMMAND CNTL BIT IL 2675+% 

OO2FD8 5004 2559+ J wth1 IL 2676+* BXS (FE 2) RETURN TO USER VIA REG 6 IF OKAY 
2560+ THE ERROR INTERRUPT USES THE SAME TIL 2677+* OR B R6{ * IF THE DEVICE COULD NOT BE CONNECTED 
2561+* ENDING SEQUENCE AS THE NORMAL INTR IL 2678+* 

256 34 ok io soko gol lak iokoiok tok dak takai iototok ak dda totokok oka tok 14 APRT6IL VAM MERLE L EL STS SS LEST SSS LE LSS STS SST SSS SSS SCS SSS SSS CSCC SSS CSC SCS CSCS CLS LST Se Se. 2 2S 
55644 iL 00305A OFO6 2680+$CONC MVBI 6,R7 NUMBER OF BYTE TO CLEAR 
2565+* SOUBROUTINE IL 00305C OBOO 2681+ MVBI O,R3 * AND THE DATA TO USE 
s2ee4e IL 00305E 4524 2CDE 2682+ MVA peV1,R5 * ALONG WITH THE ADRS TO USE 
2567+* OKAY INTERRUPT RUNS ON INTERRUPT LEVEL '*$INTL* IL 003062 2BAC 2683+ FFN R3 (5) * 
2568+* IL 003064 CB25 2cD4 2684+ MVWZ OPTN3,R3 CLEAR OLD CONTROLS FOR NEW ROUTINE 
2569+* PURPOSE IL 003068 4724 3052 2685+ MVA INTBL,R7 SET R7 TO CONTROL BLOCK AND 
2570+* IL 00306C 6014 2686+ SVC CICB * CONNECT IT TO THIS DEVICE 
go71+* TO CHECK THE INTERRUPT AND CONTINUE THE TEST IL 00306E 6ADO 0000 oon BN (R6) * ERROR RETURN TO USER 
2573+* CALLING SEQUENCE IL 003072 8828 2D16 304A 2689+$CONP MVW SINTL,IODCB PUT IN LEVEL & INTR PARAMETER 
55744 IL 003078 4724 3046 2690+ MVA  LIOBLK,R7 SET R7 TO CONTROL BLOCK TO PREPARE 
2575+ SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED IL 00307C 4020 2CD8 0708 2691+ MVWI ¥'0706', $IOIN INITIALIZE CONDITION CODE STORAGE 
2576+* THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE IL 003082 CB25 2CDA 2692+ MVWZ SISB,R3 * AND CLEAR OLD ISB VALUE 
2577+* AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE IL 003086 6E0OD 2CDC 2693+ MVW R6 L§TIO SET UP ADDRESS THAT STARTED LAST I/O 
2578+ * COMMON SECTION IS HANDLED HERE. IL 0O0308A 600C 2694+ SVC PREP * AND CALL ON SUPVR 
2579+* IL 00308C 5601 2695+ BXS (R6, 2) RETURN TO USER 
go80 1s RETURN CONTROL IL 200 11 HERES ESRB SSS HOTS ESESTSESERSE RET EMSAL TENE CELE EEL SNS SSS REREESEOOR TNT GSS 
+ IL 
g582+% SVC EXIT RETURN TO USER VIA SUPVR IL ae ees SUBROUTINE 
+ IL 
PLN ORT TTS TCSP TS CSCS SC SSS SCL SS SSS SCLC. CSCSS CCS SSCS SCC SS SC CSS TS SPSL SL SL See 2701+* DISCONNECT THE INTERRUPT CONTROL BLOCK AND LOG ERRORS 

0OO2FDA 706E 2585+INTOK CPLSR R3 COPY STATUS ANY LEVEL INTO R3 IL 2702+* 

OO2FDC 336A 2586+ SRL 13,R3 POSITION INDICATORS IN R3 IL 2703+* PURPOSE 

OO2FDE 4424 2cCD0 2587+ MVA OPTN1,R4 SET UP BASE ADRS TT 2704+* 

O02FE2 4C63 2588+INTR1 TBTS R4 y I rh SET INTERRUPT RECEIVED IL 2705+* DISCONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 

OO2FRY 4C28 2589+ TBT RY IS "CS IN PROGRESS! ON Tl 2706+* SET THE ‘NO GOOD" CONTROL BIT, THEN LOG THE DATA THAT HAS 

0O02FE6 1204 2590+ JON Tt ia * YES BCH AROUND UPDATE IL 2707+ BEEN FOUND TO HELP THE OPERATOR DEFINE THE ERROR CONDITION. 

OO2FR8 C328 2CD9 2591+ MVB R3,$IOIN+1 SAVE {INTERRUPTING CC CODE IL 2708+* 

OO2FEC 6FOD 2CDA 2592+ MVW R7,$1SB SAVE INTR STATUS AND DEV ADRS TL 2709+* CALLING SEQUENCE 

002FFO 2593+INTR2 EQU 2 TL 2710+* 

2594+% CPCL RS CURRENT LEVEL COPIED BY DCP iL 2711+% THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 
OO2FFO 3521 2595+ SLL 4,R5 POSITION INTR LEVEL AND PUT IL 2712+% 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
2713+* --> B SERRS SET 'NG* BIT AND CONVERT DATA TO LOG 003276 308E Sr sace DC A (SERRS) ERROR ADRS FOR INVALID PREP 
syises danas Ree et eee pe eae pens ace are 003278 9028 181¢ 18D2 2829 MVD  TUWORK+2,TURESUL+10 MOVE ERROR WORDS 4,5 
5716+* RETURN CONTROL 00327E 8028 1827 18CD 2830 MVB TUWORK+13,TURESUL+5 MOVE WRAP CHECK RESULTS 
2717+* 

+ CONX RETURN TO MDI CONTROLLER 
el OR {Re} * Bete Aeiece COULD NOT BE CONNECTED 003284 6802 30F0 Lr NE ee hah LD EP r Ee E CE Ete erie ete Ebro pL ee eerie ee een 
3720+* 000000 2835 END 
Pe Meee TET TTS OS STS SESS SSS SSS SSS SSE SSS STS SS SSS STS SSS SSS SLL SESS S SSS STS SSS SSS tT es S 3 

00308E 4020 1818 8000 2722+$ERRS MVWI X*8000!,TUSTATUS SET ON "NO GOOD* STATUS BIT 
003094 4724 325E 2723+ MVA HEBLK,R7 GET ADRS OF CONTROL BLOCK 
003098 601A 2724+ SVC HTOE CONVERT HEX TO EBC VIS DCP 
00309A 4020 188E 4040 2725+ MVWI X*4O40', TUWORK+116 
0030A0 4020 1890 4040 2726+ MVWI X'GOU0*, TOWORK4+118 
0030A6 4020 1892 4040 2727+ MVWI X*UO40!, TUWORK+120 
OO3Z0AC ODOG 2728+$PRNT MVBI G,_R5 
OO30AE 4324 181A 2729+ MVA  TOWORK,R3 SET UP BUFFER STORAGE 
0030B2 6BOD 3256 2730+ MVW 8 R3,BUFPT 
0030B6 4124 3132 2731+ MVA  LINE1,R1 
OO30BA OFOY 2732+ MVBI 4,R7 
0030BC OE08 2733+ MVBI 8,R6 
0030BE 2B24 273G+MVBUF MVFN f83). (1) 
0030CO0 OFOY 2735+ MVBI 5k 
0030C2 OAKO 2736+ MVBI xX'UO*,R2 
0030C4 C258 2737+ MVB =- R2 (pipe 
0030C6 BEFB 2738+ Jct MVBUF,R6 
0030C8 OF08 2739+ MVBI 8,R6 
0030CA 7921 002c 2740+ AWI 44_R1 
OO30CE BDF7 2741+ JCT MVRUF,RS 
0030D0 4020 1802 FIFO 2742+ MVWI PIDMS610,PID+2 
0030D6 4020 19B8 325c 2743+ MVA  FAKETU,@DCADD1 
0030DC 4020 19BA 3258 2744+ MVA DC2PT, ODCADD2 
0030F2 402c 19c4 0080 2745+ OWI B1rT0080, SUPSTAT 
0030E8 4324 2CD6 2746+ MVA $TUID-R SET UP BUFFER STORAGE 
OO0O30EC 6F13 18BA 2747+ BAL TUMSGWHTR*,R7 GO TO MESSAGE WRITER 
+ 
0030F0 2749+ $CONX EQU * 
0030F0 c720 19D0 2750+ MVB DFVADD, R7 GET DEVICE ADDRESS FROM MDI 
O0O30F4 6013 2751+ SVC RICB RELEASE INTERRUPT CONTROL BLOCK 
0030F6 6812 2D18 2152+ B TURTN* RETURN TO MDI SUPERVISOR 
+ 
OO30FA 0009 2754+BEGIN DC A (0009 NUMBER OF LINES TO PRINT 
0030FC 0008 2755+ Dc A (0008 LINE LENGTH = 8 CHAR 
OO30FE SCS5CHOCIC2D6D9E3 2756+ DC C'*x*x ABORT! 
003106 0028 2757+ DC A (0040) LINE LENGTH = 4O CHAR 
003108 E3E4C9C44OCIDECID 2758+ DC C'TUID IOIN ISB INST SECT ID DATA cscc ! 
003130 0028 2759+ DC A (0040) LINE LENGTH = 40 CHAR 
003132 4OUOKO4O4OKO4OLO4 27604+LINE1 DC cr t 
003154 0028 2761+ DC A (0040) LINE LENGTH = 4O CHAR 
00315C C3D5E3D340C4C3C2F 2762+ DC C'CNTL DCB1 DCB2 DCB3 DCB4Y CHAD BYCT ADRS ! 
003184 0028 2763+ DC A (0040) LINE LENGTH = 4O CHAR 
003186 4O0404040404040404 2764+LINE2 DC Cc! ' 
0OO31AE 0028 27654 DC A (0040) LINE LENGTH = 40 CHAR 
0031B0 C3E260FO4O0C3E260F 2766+ DC C'CS-0 CS-1 CS-2 CS-3 CS-4 CS-5 CS-6 CS-7 ! 
0031D8 0028 2767+ DC A (0040) LINE LENGTH = 40 CHAR 
O031DA 4O4O4OKOKOHOKOLO4 2768+LINE3 DC ct ' 
003202 0028 2769+ DC A (0040) LINE LENGTH = 40 CHAR 
003204 C3E260F840C3E260F 2770+ DC C'CS-8 CS-9 CS-A CS-B CS-C ' 
00322c 0028 2771+ pc A (0040) LINE LENGTH = 40 CHAR 
00322E 4O404040404040404 2772+ LINES DC cr t 
+ 
003256 0000 2774+BUFPT DC A 7) 
003258 30FA 2775+DC2PT DC A (BEGIN) 
003254 0101 2776+FIXTU X"0101! 
00325c 0101 Q777+FAKETU DC X*0101! 
OOFTFO 2778+PIDMSG10 EQU  X'*F1FO! 
000080 2779+BI T0080 EOU x*'0O0808 
+ 
278 1+% DATA CONTROL BLOCK FOR CONVERTING HEX TO EBCDIC 
+ 
00325E 003A 39783+HEBLK DC A 58) NUMBER OF BYTES TO CONVERT 
003260 2CD6 2784+ DC AST ID) FROM ADRS 
003262 181A 2785+ DC A (TUWORK) AND THE TO ADRS 
2786 COPY T7A10 10FEB78 
2787 T7A10 TUILT 
QT BB 4 EERE KH HK EK Ro a RO co qo ok lok kok ak kK KK KE kK KK 06 F EBT 6% * 
27894+% 
2790+* TEST UNIT 
27914+* 
2792+% ERROR HALT CODE/DIAG SENSE BYTE CHECK 
+ 
37944+* PURPOSE 
2795+* 
2796+* TO MOVE THE ERROR HALT CODE, STATUS BYTE, AND DIAG BYTES 1,2 3 
219 1+* TO THE TU RESULTS BUFFER (TORESUL) - 
2799+% MDI=$TUXX,T7A10,01,0708, EQ 
2801+* TURESUL BIT(S) 0-7 ..... .«e. ERROR HALT CODE 
2802+* ZA 8-15 .....-e. STATUS (SENSE) BYTE 
2803+* 7 16-23 .....--.- SINGLE SHOT BYTE 1 (5-HURSLEY 
2804+* i 24-31 ........ SINGLE SHOT BYTE 2 (6-HURSLEY 
2805+* : 32-39 ....ee6- SINGLE SHOT BYTE 3 (7-HURSLEY 
2806+* 3 W8-55 ......-. NOT USED 
2808+* i 64-71 .....-e. MULTISAMPLE BYTE 2 (6-HURSLEY 
2809+* : FIAT: cee gece MULTISAMPLE BYTE 3 (7-HURSLEY 
2810+* :. 80-87 ..... ~.. WRAP BYTE 
2811+4+* 
2912+% CALLING SEQUENCE 
+ 
2814+ MVW  TUWORK, TURFSUL MOVE ERROR HALT CODE & STATUS BYTES 
2815+ MVD TUWORK4+6,TURESUL+2 SINGLE SHOT BYTES 1, 2, AND 3 
2816+ MVD TUWORK+10,TURESUL+6 MULTISAMPLE BYTES 1, 2, AND 3 
2817+% AND WRAP BYTE 
2818+* RETURN CONTROL 
2819+* 
2820++ B TURTN* RETURN TO MDI SUPERVISOR 
+ 
VASWMAE TSS SLES SST SSE SSL SESE SS SCT SS SS TCSP SL SL SS SIS SSS SS SSS SS SSS SPS ST STS SC CSS SS SS Ss 
003264 6FOD 2D18 2823+T7A10 MVW R7,TURTN SAVE RETURN ADDRESS 
003268 4020 2CD6 7A10 2824+ MVWI X*7A10'_ $TUID SAVE TU ID FOR DISPLAY 
00326E 4424 2CDO0 2825+ MVA  OPTN1,R4 SET UP POINTER ADRS IN R4 
003272 6E03 305A 2826+ BAL S$CONC;R6 CLEAR DEV DEP STG AND CONNECT I/0 BL 
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L7A510 == DORMANT FAILURES P/N=8327683 EC=375222 


CROSS-~REFERENCE LISTING 


ATTRIBUTES AND REFERENCES DECLARED NAME 


DECLARED NAME 


2680 $CONC aADDRESS. HEX LOCATION(0000305A) IN CSECT(I7A51 ) LENGTH (2) 13330 IN Wega Ree Suey kee 
Sy: - SBGNY ADDRESS. HEX LOCATION (000030F0) IN CSECT(I7AS1 ) LENGTH(1) 2650 INTBL oRDDRESS. HEX LOCATION (00003052) IN CSECT(I7A51 ) LENGTH (2) 
2722 $ERR$ PADD RESS: HEX LOCATION(0000308E) IN CSECT(I7A51 ) LENGTH (6) 2545 INTER sees HEX LOCATION (00002FB6) IN CSECT(I7A51 ) LENGTH (2) 
‘ane staan: ADDRESS, HRX LOCATION(00002D16) IN CSECT(I7A51 ) LENGTH (2) 2554 INTES ADDRESS. HEX LOCATION (00002FCE) IN CSECT(I7A51 ) LENGTH(2) 
ce er een TADDRESS, HEX LOCATION (0Q002CDS) IN CSECT(I7A51 ) LENGTH (2) 2558 INTET ADDRESS. HEX LOCATION (00002FD6) IN CSECT(I7A51 ) LENGTH (2) 
ives SRS JADDRESS; HBX LOCATION (00902cDA) IN CSECT(I7A51 ) LENGTH (2) 2585 INTOK ADDRESS. HEX LOCATION (00002FDA) IN CSECT(I7A51 ) LENGTH (2) 
‘ae, eis JABSOLUTE. nBX VardE (00000026) 2607  INTRX >ADDRESS, HEX LOCATION(0000300A) IN CSECT(I7A51 ) LENGTH (2) 
1350  $TUID jADPRESS; (HEX LOCATION (00002CD6) IN CSECT(I7A51 ) LENGTH(2) 2588  INTR1 >ADDRESS, HEX LOCATION (O0002PE2) IN CSECT(I7A51 ) LENGTH (2) 
700 89nd ADDRESS. “HEX LOCATION (00002F12) IN CSECT(I7A51 ) LENGTH (2) 2593 INTR2 ADDRESS. HEX LOCATION (00002FFO) IN CSECT(I7A51 ) LENGTH(1) 
io: “aeaqe ABSOLUTE. HEX VALUE (00000201) 2601 INTR3 >ADDRESS. HEX LOCATION (OOOO2FFE) IN CSECT(I7A51 ) LENGTH(2) 
102  @DCADD1_—-—JADDRESS. HEX LOCATION (00001988) IN CSECT(I7A51 ) LENGTH(1) 2641 = IOBLK EDU eae eee ago ec On wee ueoro) Sh ES Ber (TRON) LeNGTn (2) 
103 @DCADD2 ADDRESS. HEX LOCATION(000019BA) IN CSECT(I7A51 ) LENGTH (1) feu nONGe 1925 Fag 1731 1199 1750 1953, 1986 1789) BT) 
39 @FIXT “ABSOLUTE. HEX VALUE 90000101) WN aud Cal eons SRG sONCy Lace ce 
665" 684 693 636 699° 762 765 768 771 2644 IOMOD jABBRESS, HEX LOCATION (0000304C) IN CSECT(I7A51 ) LENGTH (2) 
1331 4204 937 {978 {981 984 1005 1008 1014 37 -I7A51 CSECT. START(00002500) LENGTH (3464) ESDID(1) 
1152 1155 1158 1464 1164 «1167 1179 1173 1200 2760 LINE1 jADDRESS. HEX LOCATION (00003132) IN CSECT(I7A51 ) LENGTH(4#0) 
38  aQUES ABSOLUTE, HEX VALUE(00000100) » 9 8, aay gus 1353 LSTIO jADBRESS; HEX LOCATION (00002CDC) IN CSECT(I7A51 ) LENGTH (2) 
05 aruxx —-ABSoLURES xf Yaxug (90000900) "124 129? Ba miu “Utteees wae oneo nanos 
e231 633 65 65] 672 702 714 726 738 2734 MVBUF ADDRESS, HEX LOCATION (000030BE) IN CSECT(I7A51 ) LENGTH (2) 
1321 4333 4969 4982 1014 1026 1041 1056 1068 1342 NG >BBSOLUTE. HEX VALUE (0000002C) 
2754 BEGIN jADDRESS. HEX LOCATION (000030FA) IN CSECT(I7A51 ) LENGTH (2) 1337 NI Eee ee nn. eee Op ONOee 1) 
2779 BI T0080 “ABSOLUTE. HEX VALUE (00000080) 621 wo0001 ADDRESS, HEX LOCATION (00002690) IN CSECT(I7A51 ) LENGTH (2) 
2774 BUFPT sARDRESS. HEX LOCATION (00003256) IN CSECT(I7A51  ) LENGTH (2) 633 NO0002 EDDEE Oe HEX DOCKETON(O0OU ZORA) ENNESECTULIASL 2) PENGEHA) 
1340 CE CABSOLUTE, HEX VALUE (0000002A) 645 N00003 ADDRESS. HEX LOCATION (000026C2) IN CSECT(I7A51 ) LENGTH (2) 
1425 CICB oABSOLUTE. HEX VALUE (00000014) | 657  wooo04 ADDRESS. HEX LOCATION (000026DA) IN CSECT(I7A51 ) LENGTH (2) 
1522 CLDCB {BBRESS. HEX LOCATION (00002D38) IN CSECT(I7A51 ) LENGTH (2) 669 N00005 BED R ESS HEY LOCHTTON (OU O0 SOE a) tN ESECE ETRY = PONGEH (2) 
‘ae: 6s jABSOLUTE, HEX, VALUE (90090028) 672  No0006 ADDRESS, HEX LOCATION (000026F6) IN CSECT(I7A51 ) LENGTH (2) 
1339 CSA ,SBSOLUTE. HEX VALUE (00000029) 684  N00007 ADDRESS. HEX LOCATION (0000270E) IN CSECT(I7A51 ) LENGTH (2) 
soe6: eee VADDRESS. HEX LOCATION (00002CF6) IN CSECT(I7A51 ) LENGTH (1) 687  Noo00ds ADDRESS, HEX LOCATION (00002712) IN CSECT(I7A51 ) LENGTH (2) 
1560  CSDCB > ABBRESS. HEX LOCATION (00002D78) IN CSECT(I7A51 ) LENGTH (2) 690  No0009 ADDRESS. HEX LOCATION (00002716) IN CSECT(I7A51 ) LENGTH (2) 
1359 =~ DCBUF jARBRESS, HEX LOCATION (00002CE6) IN CSECT(I7A51 ) LENGTH(1) 693  N00010 ADDRESS. HEX LOCATION(0000271A) IN CSECT(I7A51 ) LENGTH (2) 
2775 DC2PT sARDRESS. HEX LOCATION (00003258) IN CSECT(I7A51  ) LENGTH (2) 696 NOO0011 ADDRESS. HEX LOCATION (00002712) IN CSECT(X7A51 ) LENGTH (2) 
105  «-DEVADD «= ADDRESS, HEX LOCATION (000019D0) IN CSECT(I7A51 ) LENGTH (1) 699  Nno0012 ADDRESS, HEX LOCATION (00002722) IN CSECT(I7A51 ) LENGTH (2) 
‘ici Haw JADDRESS, HEX LOCATION (00002CDE) IN CSECT(Z7A51 ) LENGTH (2) 702 =—-N00013 ADDRESS; HEX LOCATION (00002726) IN CSECT(I7A51 ) LENGTH (2) 
1357s DEV4 aADDRESS. HEX LOCATION(00002CE4) IN CSECT(I7A51 ) LENGTH (2) 714  N00014 ADDRESS. HEX LOCATION (0000273E) IN CSECT(I7A51 ) LENGTH (2) 
1511 DGDCB jADBRESS. HEX LOCATION (00002D28) IN CSECT(I7A51 ) LENGTH(2) 726 N00015 BDERES Se: HEX LOCHTTON MOONS EOS) AN COREA IT TADA -) LENGE) 
ce ey ABSOLUTE. HEX VALUE (00000000) 738  N00016 ADDRESS. HEX LOCATION (00002772) IN CSECT(I7A51 ) LENGTH(2) 
‘aa .cenar ADDRESS. HEX LOCATION (00002AD0) IN CSECT(I7A51 ) LENGTH(1) 750  _N00017 ADDRESS. HEX LOCATION(0000278A) IN CSECT(I7A51 ) LENGTH (2) 
Ze 1989. 2454 2475, 2558. 2600.) 2625 756  No0018 ADDRESS, HEX LOCATION (00002796) IN CSECT(I7A51 ) LENGTH (2) 
‘et: eek JABSOLOTE. HEX VALUE (00006006) 759 00019 ADDRESS. HEX LOCATION(0000279A) IN CSECT(I7A51 ) LENGTH (2) 
2777 FAKETU ADDRESS. HEX LOCATION (0000325C) IN CSECT(I7A51 ) LENGTH (2) 762  — -N00020 Sy Ce ane ee cea to MO UUCA te) TNR Cee The’ 1) LENGTH (2) 
1sk4 3 F00043 ADDRESS. HEX LOCATION (OOQO2AEE) IN CSECT(I7AS1 |) LENGTH (1) 765 N00021 ADDRESS. HEX LOCATION (0000272) IN CSECT(I7A51 ) LENGTH(2) 
1385 1912 1039 1054 1129 4138 1444 1147 1150 768  N00022 ADDRESS, HEX LOCATION(000027A6) IN CSECT(I7A51 ) LENGTH (2) 
mee —KoooIe ADDRESS. “HEX LOCATION (00002BFC) IN CSECT(I7A51 ) LENGTH (1) 771 N00023 ADDRESS, HEX LOCATION (000027AA) IN CSECT(I7A51 ) LENGTH (2) 
1289 F00015 ADDRESS. HEX LOCATION(00002cB8) IN CSECT(I7A51 ) LENGTH (1) tie, ~~ NOOOES Be Tie ee ee) a Sore CR: 3): BENGEHC2Z) 
1237  F00016 ADDRESS, HEX LOCATION (00QQ2AD6) IN CSECT(I7A51 ) LENGTH (1) 786 "00025 ADDRESS. HEX LOCATION (000027C6) IN CSECT(I7A51 ) LENGTH (2) 
1269 00017 ADDRESS. HEX LOCATION (000Q2C14) IN CSECT(I7A51 ) LENGTH(1) 798 —-N00026 ADDRESS. HEX LOCATION (000027DE) IN CSECT(I7A51 ) LENGTH (2) 
1245 00049 ADDRESS. HEX LOCATION (00002B06) IN CSECT(I7A51 ) LENGTH (1) 801 NOOO27 BOR eee Hey LOCH TON ROE LE)“ ERUCSECT (TRL je ENGI A (2) 
1259  F00075 ADDRESS. HEX LOCATION(00002BB4) IN CSECT(I7A51 ) LENGTH(1) ann noOe2? SGe rh ee ee eae e eno) ANCE SEeT (EADY «BENGE (2) 
1273 + F00108 ADDRESS. HEX LOCATION (00002C2A) IN CSECT(I7A51 ) LENGTH(1) et eee So eee ee 
1279 = F00172 ADDRESS. HEX LOCATION (00002C58) IN CSECT(I7A51 ) LENGTH (1) ou Ne Reo age Oe eamed ra NOR RCE (LTRS 2) SENCTH (2) 
1285  F00252 ADDRESS. HEX LOCATION (00002C98) IN CSECT(I7A51 ) LENGTH(1) pis) NO ON3s Ape egg Per eee e key Ee Cee T (ET aS 2) PeNGrn ts) 
2783 HEBLK ADDRESS. HEX LOCATION (0000325E) IN CSECT(I7A51 ) LENGTH (2) 816 N00032 ROO ae ee roca ON (ONS Ee) TN EST (TROT op, LENGTH (2) 
‘aa: aor CABSOLUTE. HEX VALUE (00000018) 828  N00033 ADDRESS. HEX LOCATION (00002802) IN CSECT(I7A51 ) LENGTH (2) 
inet. “ove SABSOLUTE. HEX VALUE (00000002) 831 N00034 ADDRESS. HEX LOCATION (00002812) IN CSECT(I7A51 ) LENGTH (2) 
fEES -“ENDG TADDRESS, HEX LOCATION(00002E12) IN CSECT(I7A51 ) LENGTH (2) 834  N00035 ADDRESS. HEX LOCATION (00002816) IN CSECT(I7A51  ) LENGTH (2) 


I7A51 --- 


DECLARED 
837 
840 
843 
855 
858 
870 
882 
885 
897 
909 
921 
533 
945 
948 
951 
954 
957 
960 
972 
975 
978 
981 
984 
987 
999 

1002 
1005 
1008 
1011 
1014 
10 26 
1038 
1041 
1053 
1056 
1068 
1080 
1092 
1104 
1116 
1128 
1131 
1134 
1137 
1140 
1143 
1146 
1149 
1152 
1155 
1158 
1161 
1164 
1167 
1170 
1173 
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NAME 

N00036 
N00037 
N00038 
N00039 
NO0040 
NOO041 
NO0042 
N00043 
NOOO4Y 
NOOO045 
NO0046 
N00047 
NOOO048 
NOO0O049 
N00050 
N00051 
N00052 
N00053 
NO0054 
NO00055 
N00056 
N00057 
N00058 
NO0059 
NO00060 
N00061 
NO0062 
N00063 
NO0064 
NO00065 
NO00066 
N00067 
N00068 
NO00069 
N00070 
NO00071 
NO00072 
N00073 
NO0074 
NO00075 
N00076 
N00077 
N00078 
N00079 
N00080 
N00081 
N00082 
N00083 
NOO084 
NO0085 
NO0086 
N00087 
NO00088 
NO0089 
N00090 
N00091 


ATTRIBUTES 


ADDRESS. 
420 832 
ADDRESS. 
423 82 
ADDRESS. 
426 81 
ADDRESS. 
29 


uy 
ADDRESS. 
432 84 
ADDRESS. 
435 


Sry fly fp 

SYSVSoWwY 
oO ow 
= 5] Ww 
td ty 
nN nN 
187] Ww 
e t 


= 
o 
o 
to 
ty 
io) 
16?) 
. 


0 
ADDRESS. 
453 
ADDRESS. 
456 
ADDRESS. 
459 


ADDRESS. 
462 
ADDRESS. 
465 949 
ADDRESS. 
468 946 
ADDRESS. 
471 934 
ADDRESS. 
474 
ADDRESS. 
477 
ADDRESS. 
480 
ADDRESS. 
483 97 
ADDRESS. 
486 97 


oO 
= 0] 
bo 
Wn 
N 


RESS. 
RESS. 


mw we 
td tf 
NmN—) 


RESS. 
RESS. 
027 


ow 
td 
n 
YN 
e 


Damm m Ww 
woh ew yy 
nm wn 
nnn 
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oO 
Oo 
ty 
td 
Newer aero Ulett) 


Bs US Ole U1 Ole Ut U1 OT Ole O11 Om Ot OB Ot Os Us OU oe Be ee op 
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549 


> 

oO 

Oo 
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to td 
Nf at® Ue Ne cot Ws We 
wo MW WN WO = W WY 


es qne 
We) 


58 
ADDRES 


AND 
HEX 
HEX 


HEX 
7 


HEX 


HEX 
ut 


HEX 
HEX 


HEX 
71 


HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 


HEX 
1 


HEX 
HEX 
HEX 


HEX 
HEX 
HEX 
HEX 


HEX 
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REFERENCES 
LOCATION (000028 1A) 
LOCATION (0000281E) 
LOCATION (00002822) 
LOCATION (0000283A) 
LOCATION (0000283E) 
LOCATION (00002858) 
LOCATION (00002872) 
LOCATION (00002876) 
LOCATION (0000288E) 
LOCATION (000028A6) 
LOCATION (000028C0) 
LOCATION (000028D8) 
LOCATION (000028F0) 
LOCATION (000028F4) 
LOCATION (000028F8) 
LOCATION (000028FC) 
LOCATION (00002900) 
LOCATION (00002904) 
LOCATION (0000291C) 
LOCATION (00002920) 
LOCATION (00002924) 
LOCATION (00002928) 
LOCATION (0000292Cc) 
LOCATION (00002930) 
LOCATION (0000294a) 
LOCATION (00002948) 
LOCATION (00002952) 
LOCATION (00002956) 
LOCATION (0000295A) 
LOCATION (0000295E) 
LOCATION (00002976) 
LOCATION (0000298E) 
LOCATION (00002992) 
LOCATION (000029AA) 
LOCATION (000029AE) 
LOCATION (000029C6) 
LOCATION (000029E0) 
LOCATION (000029FA) 
LOCATION (00002412) 
LOCATION (00002A2A) 
LOCATION (00002446) 
LOCATION (00002A4A) 
LOCATION (00002A4E£) 
LOCATION (00002452) 
LOCATION (00002A56) 
LOCATION (00002A5A) 
LOCATION (00002A5E) 
LOCATION (00002A62) 
LOCATION (00002A66) 
LOCATION (00002A6A) 
LOCATION (00002A6E) 
LOCATION (00002A72) 
LOCATION (00002A76) 
LOCATION (00002A7A) 
LOCATION (00002A7E) 
LOCATION (00002A82) 


IN 
IN 
IN 
IN 
IN 
IN 
In 
In 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IW 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 


CSECT (I7A51 
CSECT (I7A51 
CSECT (I7A51 
CSECT (I7A51 
CSECT(I7A51 
CSECT (1I7A51 
CSECT (I7A51 
CSECT(I7A51 
CSECT (I7A51 
CSECT(I7A51 
CSECT (I7A51 
CSECT (17A51 
CSECT (I7A51 
CSECT(I7A51 
CSECT(I7A51 
CSECT(I7A51 
CSECT(I7A51 
CSECT (I7A51 
CSECT(I7A51 
CSECT(I7A51 
CSECT (I7A51 
CSECT(I7A51 
CSECT (I7A51 
CSECT (I7A51 
CSECT(I7A51 
CSECT(I7A51 
CSECT (I7A51 
CSECT(I7A51 
CSECT(I7A51 
CSECT(I7A51 
CSECT(I7A51 
CSECT(I7A51 
CSECT(I7A51 
CSECT(I7A51 
CSECT (I7A51 
CSECT(I7A51 
CSECT (17A51 
CSECT (I7A51 
CSECT (I7A51 
CSECT(I7A51 
CSECT(I7A51 
CSECT(I7A51 
CSECT (I7A51 
CSECT(I7A51 
CSECT(I7A51 
CSECT (I7A51 
CSECT (I7A51 
CSECT(I7A51 
CSECT (I7A51 
CSECT(I7A51 
CSECT(I7A51 
CSECT (I7A51 
CSECT(I7A51 
CSECT (I7A51 
CSECT (I7A51 
CSECT (I7A51 
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LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 


TTA51 -=- 
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1176 
1188 
1200 
1203 
1206 
1209 
1212 
1215 

58 


57 


1295 
1318 
101 


69 


2778 
1417 
1593 
1424 
1615 
1626 
1649 


1538 


Oo Oo © 


1358 
1549 
1415 
104 
92 
98 
1387 
74 
75 
1396 


2823 
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NAME 


NO00092 
NO00093 
NOOO94 
nN00095 
N00096 
NO0097 
N00098 
NO0099 
OF 


ON 


OPTN1 
OPTN3 
PARMARA 


PID 


PIDMSG10 
PREP 
RDDCB 
RICB 
RKDCB 
RMDCB 
RSBA 


RSDCB 
RO 
R1 
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